# -*- mode: snippet -*-
# name: dabestr unpaired group mean diff plot
# key: dabestr.unpaired.group.mean_diff.plot
# key: dabestr.Gardner.Altman.mean_diff.swarmplot
# --
${1:group.unpaired.diff} <- ${2:dt} |>
  dabestr::dabest(${3:Group}, ${4:Measurement},
                  idx = c("Control1", "Group1"),
                  paired = FALSE) |>
  dabestr::mean_diff()
$1
$1 |> plot(color.column = , group.summaries = "median_quartiles")